﻿Public Class dsSoAo
    Dim ctx As New QLDBDataContext
    Private _soao As Integer
    Private _tenso As String
    Sub New()
        _soao = 0
        _tenso = ""
    End Sub
    Public Property SoAo As Integer
        Get
            Return _soao
        End Get
        Set(value As Integer)
            _soao = value
        End Set
    End Property
    Public Property TenSo As String
        Get
            Return _tenso
        End Get
        Set(value As String)
            _tenso = value
        End Set
    End Property

    Private Function kt(ByVal sa As Integer, ByVal _MaDoi As Integer) As Boolean
        Dim v = From q In ctx.CAUTHUs Where q.MaCLB = _MaDoi And q.SoAo = sa 'lấy ra câu thủ đội có mã mã là _Madoi và có số áo là sa
        If v.Count = 0 Then
            Return True
        Else
            Return False
        End If
    End Function

    Public Function LaySoAo(ByVal _Madoi As Integer) As List(Of dsSoAo)

        Dim dsSoAo As New List(Of dsSoAo)
        If _Madoi = -1 Then
            For i As Integer = 1 To 50
                dsSoAo.Add(New dsSoAo With {.SoAo = i, .TenSo = "Số " & i})
            Next
            Return dsSoAo
        End If

        For i As Integer = 1 To 50
            If kt(i, _Madoi) = True Then
                dsSoAo.Add(New dsSoAo With {.SoAo = i, .TenSo = "Số " & i})
            End If
        Next
        'dsSoAo.Add(New dsSoAo With {.SoAo = 0, .TenSo = "Số 0"})
        Return dsSoAo
    End Function
End Class
